home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 2.adf / include.cbm / devices / conunit.i < prev    next >
Text File  |  1987-03-31  |  3KB  |  80 lines
  1.         IFND    DEVICES_CONUNIT_I
  2. DEVICES_CONUNIT_I       EQU     1
  3. ********************************************************************
  4. *               Commodore-Amiga, Inc.                              *
  5. *               conunit.i                                          *
  6. ********************************************************************
  7. ********************************************************************
  8. *
  9. *  Console device unit definitions
  10. *
  11. ********************************************************************
  12.  
  13.    IFND  EXEC_PORTS_I
  14.    INCLUDE  "exec/ports.i"
  15.    ENDC
  16.  
  17.    IFND  DEVICES_KEYMAP_I
  18.    INCLUDE  "devices/keymap.i"
  19.    ENDC
  20.  
  21. PMB_ASM     EQU   M_LNM+1     ; internal storage bit for AS flag
  22. PMB_AWM     EQU   PMB_ASM+1   ; internal storage bit for AW flag
  23. MAXTABS     EQU   80
  24.  
  25.  
  26.  STRUCTURE  ConUnit,MP_SIZE
  27.     ;------ read only variables
  28.    APTR  cu_Window            ; intuition window bound to this unit
  29.    WORD  cu_XCP               ; character position
  30.    WORD  cu_YCP
  31.    WORD  cu_XMax              ; max character position
  32.    WORD  cu_YMax
  33.    WORD  cu_XRSize            ; character raster size
  34.    WORD  cu_YRSize
  35.    WORD  cu_XROrigin          ; raster origin
  36.    WORD  cu_YROrigin
  37.    WORD  cu_XRExtant          ; raster maxima
  38.    WORD  cu_YRExtant
  39.    WORD  cu_XMinShrink        ; smallest area intact from resize process
  40.    WORD  cu_YMinShrink
  41.    WORD  cu_XCCP              ; cursor position
  42.    WORD  cu_YCCP
  43.  
  44.    ;------ read/write variables (writes must must be protected)
  45.    ;------ storage for AskKeyMap and SetKeyMap
  46.    STRUCT   cu_KeyMapStruct,km_SIZEOF
  47.    ; ---- tab stops
  48.    STRUCT   cu_TabStops,2*MAXTABS   ; 0 at start, 0xffff at end of list
  49.  
  50.    ;------ console rastport attributes
  51.    BYTE  cu_Mask              ; these must appear as in RastPort
  52.    BYTE  cu_FgPen             ;   |
  53.    BYTE  cu_BgPen             ;   |
  54.    BYTE  cu_AOLPen            ;   +
  55.    BYTE  cu_DrawMode          ; these must appear as in RastPort
  56.    BYTE  cu_AreaPtSz          ;   +
  57.    APTR  cu_AreaPtrn          ; cursor area pattern
  58.    STRUCT   cu_Minterms,8     ; console minterms
  59.    APTR  cu_Font              ;
  60.    UBYTE cu_AlgoStyle         ; these must appear as in RastPort
  61.    UBYTE cu_TxFlags           ;   +
  62.    UWORD cu_TxHeight          ; these must appear as in RastPort
  63.    UWORD cu_TxWidth           ;   |
  64.    UWORD cu_TxBaseline        ;   |
  65.    UWORD cu_TxSpacing         ;   +
  66.  
  67.    ;------ console MODES and RAW EVENTS switches
  68.    STRUCT   cu_Modes,<(PMB_AWM+7)/8>   ; one bit per mode
  69.    STRUCT   cu_RawEvents,<(IECLASS_MAX+7)/8>
  70.  
  71.    ;------ ensure the ConsUnit structure is even
  72. ODDEVEN  EQU   ((PMB_AWM+7)/8)+((IECLASS_MAX+7)/8)
  73.    IFNE  ODDEVEN-((ODDEVEN/2)*2)
  74.       UBYTE cu_pad   
  75.    ENDC
  76.  
  77.    LABEL ConUnit_SIZEOF
  78.  
  79.         ENDC
  80.